home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Misc / emu / p-interp.lha / p-interp-0.5 / rexx.h < prev    next >
C/C++ Source or Header  |  2001-06-16  |  1KB  |  47 lines
  1. /*
  2. ** C2Rexx.c  -- by Bryan Ewert  --  02 Jun 1996
  3. ** Amiga Users of Calgary OOPSIG  --  Calgary, Alberta, Canada
  4. **
  5. ** Sends the ARexx command "EXECUTE" to p-interp's
  6. ** Rexx port "TURTLESERVER"
  7. */
  8.  
  9. /*
  10. ** Based on code in:
  11. **
  12. **   fancydemo.c - A fancy rexx host that can send and receive messages.
  13. **   Author - Gary Samad & Bill Hawes
  14. **   This is truly Public Domain!!
  15. */
  16. #include <proto/exec.h>
  17. #include <proto/rexxsyslib.h>
  18. #include <stdio.h>
  19. #include <string.h>
  20. #include <stdlib.h>
  21.  
  22. /* Prototype function calls */
  23. void free_rexx_command(struct RexxMsg *);
  24. int send_rexx_command(char *);
  25. void shutdown_rexx_port(struct MsgPort *);
  26. struct MsgPort *setup_rexx_port(void);
  27. void close_up_shop(int);
  28.  
  29. /* function return codes */
  30. #define OK        0
  31. #define NOTOK     1
  32. /* Error message if REXX isn't loaded */
  33. #define NO_REXX_MSG   "Rexx is not active.  Please run 'rexxmast' from another CLI.\n"
  34. /* Port names and such */
  35. #define HOST_PORT_NAME     "C2Rexx"
  36. #define TURTLE_HOST_NAME    "TURTLESERVER"
  37. #define REXX_EXTENSION     "rexx"
  38. /*
  39. ** Global for this application's REXX port
  40. ** Used for TurtleServer to reply to our REXX message
  41. */
  42. #ifdef EXTERN
  43. extern struct MsgPort *rexx_port;
  44. #else
  45. struct MsgPort *rexx_port = NULL;
  46. #endif
  47.